home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / cnet / cnettoolkit2a.lha / Routines / EDATE < prev    next >
Text File  |  1994-12-13  |  160b  |  3 lines
  1. EDATE: procedure;arg da,mo;if mo='I' then da=date('s',da,'i')
  2.   return left(date('w',da,'s'),3)right('  'strip(translate(date('n',da,'s'),'-',' '),'L','0'),12)
  3.